From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 25 Jan 2022 12:58:30 +0000 (+0100)
Subject: Fix widening some columns in tabulated-list-widen-current-column
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~3198
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c40398e0080a44eac709871f9eb3fca2bb9a1560;p=emacs.git

Fix widening some columns in tabulated-list-widen-current-column

* lisp/emacs-lisp/tabulated-list.el
(tabulated-list-widen-current-column): Don't bug out on list-based
columns (bug#53498).
---

diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index a242ac1899d..2defef81073 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -745,7 +745,10 @@ Interactively, N is the prefix numeric argument, and defaults to
                        (max (setq col-width
                                   (cadr (aref tabulated-list-format
                                               col-nb)))
-                            (string-width (aref entry col-nb)))
+                            (let ((desc (aref entry col-nb)))
+                              (string-width (if (stringp desc)
+                                                desc
+                                              (car desc)))))
                        (or (plist-get (nthcdr 3 (aref tabulated-list-format
                                                       col-nb))
                                       :pad-right)